home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Clinical Endocrinology
/
Clinical Endocrinology.iso
/
pc
/
00000000
/
21000000
/
21010000
/
shared.dir
/
00967_Script_967
< prev
Wrap
Text File
|
1995-11-17
|
2KB
|
61 lines
-- Handler called by "copy" button in zoom frame.
-- It stores the reference to which slide and palette to
-- grab and which movie it is grabbing it from into globals.
-- Then piratewindow is told to open and go to a frame
-- The rest of the process is handled by Pirate.dir.
on copySlide
global slideToGrab, paletteToGrab, returnPath, pirateWindow
global slideFileName
put the castNum of sprite 5 into slideToGrab
put the fileName of cast slideToGrab into slideFileName
--put (( the castNum of sprite 5 ) - 1 ) into paletteToGrab
put the pathname & the moviename into returnPath -- route back here
set the windowType of window pirateWindow = 1
set the visibility of sprite 5 to false
set the visibility of sprite 6 to false
updateStage
open window pirateWindow
tell window pirateWindow
go frame "WhichCopy"
end tell
end copySlide
-----------------------------------------------------------------
-- Handler called from "Slidebox" button to open Pirate and store
-- path back to this movie.
on goSlideBox
global returnPath, pirateWindow
put the pathname & the moviename into returnPath -- route back here
set the windowType of window pirateWindow = 1
set the visibility of sprite 5 to false
set the visibility of sprite 6 to false
updateStage
open window pirateWindow
tell window pirateWindow
go frame "WhichBox2"
end tell
end goSlideBox
-----------------------------------------------------------------
on keyDown
if (the commandDown) and ( the key = "Q" ) then quitScript
if the key = RETURN then beep 2
end